unit uActo;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Objects, FMX.Layouts, FMX.Memo;

type
  TfmActo = class(TForm)
    mmDescripcion: TMemo;
    lblNombre: TLabel;
    lblHora: TLabel;
    LayTop2: TLayout;
    LayTitulo: TLayout;
    LayAvisar: TLayout;
    StyleBook1: TStyleBook;
    Layout4: TLayout;
    Switch1: TSwitch;
    Layout5: TLayout;
    Label3: TLabel;
    LayTop1: TLayout;
    imgImagen: TImage;
    LayCli: TLayout;
    LayMapa: TLayout;
    imgMapa: TImage;
    procedure FormActivate(Sender: TObject);
    procedure imgMapaClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    var
      MapaURL: String;
  end;

var
  fmActo: TfmActo;

implementation

uses uMapa, uGlobal;

{$R *.fmx}

procedure TfmActo.FormActivate(Sender: TObject);
begin
  LayTop1.Height := LayTop1.Width;
  imgImagen.Height := imgImagen.Width;
end;

procedure TfmActo.imgMapaClick(Sender: TObject);
begin
  fmMapa.URL := MapaURL;
  fmMapa := TfmMapa.Create(nil);
  fmMapa.Show;
end;

end.
